          SUBROUTINE (GPS.DELIVERY.SCHEDULE)
** Version# 0.0005[29] - 07/12/2017 - 02:56pm - TSMITH - eclipse
*** V0.0005 Change - Custom Coding . - 07/12/2017 - TSMITH - eclipse
** Copied from CBP DELIVERY.SCHEDULE Version# 0.0004[1] - 07/11/2017 - 11:34am - TSMITH - eclipse
** Copied from CBP SOE.GET.RENTAL Version# 0.0003[29] - 02/27/2017 - 04:13pm - TSMITH - eclipse
*** V0.0003 Change - Custom Coding . - 02/27/2017 - TSMITH - eclipse
*** V0.0002 Change - Custom Coding CUSTOM - 01/18/2017 - TSMITH - eclipse
** Copied from CBP DICT.GET.RENTAL Version# 0.0001[38] - 09/15/2016 - 11:52am - TSMITH - eclipse
*** V0.0001 Change - Custom Coding 1-3 - 09/15/2016 - TSMITH - eclipse
*-------------------------------------------------------------------------*
INIT:
SCREEN


UT.OPEN.FILE "DELIVERY.SCHEDULE",LEDGPSFILE,ERR.MSG
IF ERR.MSG THEN
PRINT @(2,2):ERR.MSG
END

*GOSUB HOTKEYS
*-------------------------------------------------------------------------*
IN.DELIVERY.DATE: INP DDATE,9,2,10,'D4/',,,

DEL.DATE = FIELD(OCONV(DDATE,'D4-'),'-',3):'-':FIELD(OCONV(DDATE,'D2-'),'-',1):'-':FIELD(OCONV(DDATE,'D2-'),'-',2)

IF QUIT THEN GOTO FINISH
IF F12 THEN GOTO FINISH
ON MOVE+1 GOTO IN.DELIVERY.DATE,IN.DELIVERY.TRUCK,IN.DELIVERY.TRUCK,IN.DELIVERY.TRUCK,IN.DELIVERY.TRUCK,IN.DELIVERY.TRUCK,IN.DELIVERY.TRUCK
*-------------------------------------------------------------------------*
IN.DELIVERY.TRUCK: INP DTRUCK,9,3,10,,V_'C:VALID.GPS.TRUCKS',,

DEL.TRUCK = DTRUCK
ACT.ID$ = DEL.DATE:'-':DEL.TRUCK

IF QUIT THEN GOTO FINISH
IF F12 THEN GOTO FINISH
ON MOVE+1 GOTO IN.DELIVERY.TRUCK,IN.DELIVERY.DATE,IN.DELIVERY.DATE,IN.DELIVERY.DATE,IN.DELIVERY.DATE,IN.DELIVERY.DATE,IN.DELIVERY.DATE

*-------------------------------------------------------------------------*
*HOTKEYS:                 MENU.LOAD  2,5,6,1,'D'    ;* Delivery Details

*RETURN
*-------------------------------------------------------------------------*
*SUBS: ON OPTION GOTO DETAIL
*-------------------------------------------------------------------------*
*DETAIL:
*        DEL.ID = FIELD(OCONV(DDATE,'D4-'),'-',3):'-':FIELD(OCONV(DDATE,'D2-'),'-',1):'-':FIELD(OCONV(DDATE,'D2-'),'-',2):'-':DTRUCK
*        GPS.DELIVERY.SCHED.DET DEL.ID
*RETURN
*-------------------------------------------------------------------------*
FINISH: WINDOW.CLOSE

!TSMITH~07/12/17~14:56
